
EXCLUSIVITÉ MONDIALE : 

(si, si, mondiale !) 
LE BANC D'ESSAI DE L'ORIC "STRATOS" 

Les "STRATOS" en état de marche se comptent sur les doigts de la main d'un ptérodactyle. Nous en 
avons vole un, le temps de lui faire subir les derniers outrages t 




CINOCHE-TELOCHE 




UNGAWA ! RAA ! RAA ! PAW ! 


Plein tes mirettes, pages 14 et 1S. 




Cette semaine les petits mickeys sont de LABIANO. Vol' 



C'est nouveau, ça vient de sortir : 

: rtenia'iiede !s m/cry i:iiv:mauQM' ! i<c page--- 3,1 G. 



DEUUGNEURS 

Les fainéants sont à la page 11. 



BIDOUILLE GRENOUILLE 



k les logiciels Ou monde entier. 



CONCOURS PERMANENTS 

francs chaque mois ou un voyage en Californie pour tfei/a 



I AMSTRAD . 

I APPLE Ile et Ile. ATARI 800 XL . CANON X-07 . CASIO FX 702-P. 
I COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 

MSX et compatible, . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
^JANDY TRS 80 . TEXAS TI-99/4A . THOMSON TQ7, TO7/70, ET MQ5.JJJ 



N°73s 



10F 



MINEUR 



Bob le mineur doit récupérer des sacs d'or et les dépo- 
ser dans sa brouette. Il ne peut prendre qu'un sac à la 
fois (bouton rouge), le pistolet ne tire qu'un coup (seule- 
ment i) grâce à la barre d'espace. 

David HOAN 



Mode d'emploi: 

Arrêt chariot: manette vers le haut. 
Démarrage chariot: manette vers le bas. 
Appel ascenseur: manette vers le haut. 

0 REtt LE MINEUR 

1 REM 

2 REM par David HOAN 

3 REM C ATARI B80XL 1 

4 REM 

5 GRAPHICS i:FOR 1=0 TO 4îSETCQLOR 1*8,* 
îNEXT I 

B GOSUB 800:6OSUB 1750 

7 SET COL OR B, 3, BiSETCOLOR 3, 13, 10 :SETCOL 

□R 2,7,6:S6TC0L0R 1,0,14 

B DIM HBSC2],DIC2],MXC23.MYC2),riTC2},nAt 

Z3,f1HC2JjMBt23 :P0KE 752, 1 !H2=0 

9 NU=3iEC=0:NÛU=80 

18 RESTORE 900:p=0!B=0iNS=0 

12 ? CHR*C125):P0SITION 1,18s? (t6;"UEUIL 
LE2 PATIENTER" :POKE 4*290, 128 :POKE 4*291 
,157!FOR 1=1 TO 3 

13 OB 

15 RE AD N,K:A=K 

20 FOR J=l TO NsREAD L :FOR K=K TO K*L-1 ; 

POKE K.C-NEXT K 

25 IF C-0 THEN C=l îGOTO 3! 

38 O0 

31 NEXT J 

32 RE AD Ni FOR J=l TO N:READ X,Y-PDKE Y*2 
0*X»A,19BJNEXT J 

33 READ N:FOR J-l TO N:READ X, Y, L iFOR K= 
Y*20*X TO CY+LJ*20+X STEP 20:POKE K*A, 13 
1 iNEXT KJMEXT J 

34 READ X.YîPOKE A+X+Y*20,?0:POKE A+X+Y* 
2**1,71 

40 NEXT I 

44 POKE 39233,72:P0KE 39450, 72:P0KE 3976 
4,72!POKE 37288,72 

45 POKE 39773ï69:P0KE 37323,B9 

46 POKE 39481, 73:pOKE 39501, 74 :POKE 3914 
5,66 

48 T-l !Ap39120iX=l :Y=1S:CT-0:CP=0:CB=0 :M 
N.O-0 

50 ASStl)-12:ftSSC2J=16:DICn=-l :DIC2J=-1 




A suivre: 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 



55 MXC13-16:MYtIJ-15:MTtl)=3!MACl)=37000 
:MXC2J=7!MY(2)=0:MTC2]»1 :HA(2j=39120 
B0 t1O=0:MBt2]=0:MHC2]=0:KBCn=0:MH(l]=0 
65 POSITION 1,18:? «BT'appuycz su r START 



72 POKE S5B,l:P0KE 657,11:? "BONUS" : POKE 
656,0iPOKE 657,24:? "SCORE 000000" :POK 

E 656,2:P0KE 657,24=? "RECORD 00OO00" 

73 POKE 656,2-:P0KE 657, 37-LENCSTR«CHI) j : 
? HI 

74 POKE 656,0:POKE 657, 37-tENCSTR»tSCJ3 : 
? SC 

75 POKE 40290, 208: POKE 40291,152 
8* POKE 20,0:POKE 13,0 

90 REM TESTS MANETTE ET CLAUIER 

91 REtt ************************ 
100 IF STRIGC03=0 THEN 350 

102 IF PEEKC764J-10 THEN POKE 764,255:G0 
TO 2000 

1*3 IF P6EKE764)=33 AND P=72 THEN 2050 

105 ST=STICKC0) :ON ST-4 GOTO 110,110,150 

, 110, 110, 110,200, 110,250.300, 110 

110 GOSUB 435:GOSUB 700:IF PO* AND P07 

2 THEN GOSUB 435: GOSUB 700 

115* GOSUB 43S:GOTO 100 

147 REM *********** 

14B REM DEP. DROITE 

150 U=A+XtY*20:iF B=l THEN GOSUB 500 
152 ON t GOTO 166,155,160 

155 IF X-19 THEN T=3:X=-1 :A=37000:POKE 4 
023*,136:POKE 40231,144 

156 GOTO 167 

16* IF X-13 THEN U0 
162 GOTO 167 

IBB IF X-19 THEN T=2=X=-1 : £=33520 : POKE 4 



] 

171 IF Tl=l OR T2=l THEN 110 

173 IF YOIB AND T2-0 AND PEEKCgt40J=0 T 
riEN 32* 

174 IF CT1>136 AND TK1433 DR CT2M36 AN 
D T2<1433 THEN 1700 

175 POKE y,73iIF T2-0 OR T2-131 THEN POK 
E U>20,?4 

177 POKE U,CT:IF CPOl THEN POKE M+20.CP 

179 X=X+L!CT=Tl:CP=T2:IF T2O0 AND T201 

31 THEN CP-1 

181 GOTO 110 

190 REM *********** 

131 REM DEP. GAUCHE 

132 REM *********** 

2*0 U=A*X>Y*2*:ON T GOTO 215,210,205 
2*5 IF X=0 THEN T=°2:X=2*:A=39520:POKE 4* 
290,96:POKE 40291,154 
206 GOTO 216 

21* IF X=* THEN T»l :X=20JA=39120:POKE 40 
230,20B:POKE 4*291,152 
211 GDTO 216 

215 IF X=0 THEN 110 

216 U-A+X+Y*20-l :T1=PEEKCU3 :T2=PEEK£U*20 
1 

21B IF CTU136 AND TK143Ï OR CT2M36 AN 

D T2<143) THEN 1700 

220 IF T1--1 OR T2=i THEN 110 

222 IF YOIB AND T2=0 AND PEEKCU+40>=0 T 

HEN 320 

224 POKE U,75:IF T2«0 OR T2-131 THEN POK 
E U*20,76 

226 POKE U,CT:IF CPOl THEN POKE Ut20,CP 

227 X-X-i:CT=Tl:CP=T2:IF T2O0 ANO T201 
31 THEN CP=1 

229 IF B=* THEN 110 

231 IF X=1B THEN 24B 

232 POKE W+21,CB:CB=PEEKCUï20J:IF CB=0 A 



ND XOIS THEN POKE HtZBiM 
234 GOTO 110 

240 Ï=39520:IP T=2 THEN 2=37000 

242 POKE 2+20,CB:CB=PEEKCU+21D:iF CB=0 T 

HEN POKE U+21,66 

244 GOTO 110 

247 REM ******** 

248 REM OEP. BAS 

249 REM ******** 

250 U»AtX+Y*2aiU=PEEKCU*20]:IF W=70 DR U 
=71 THEN 65B 

251 IF Y=18 OR B=l THEN 110 

252 U=PEEKCyt40] :IF U1=0 THEN 340 

254 IF W=141 DR U-137 OR U-139 THEN 1700 
256 IF U0131 ANO UI0196 ANO U072 THEN 
110 

255 POKE U,CT:POKE U+20,77:IF U=131 THEN 
POKE U1-40.78 

260 CT=CP:CP=bl:Y=Y-H :GOTO 110 

265 'IF CS<137 OR CSM42 THEN 110 

266 XM-lilF X=MXC2D AND MYC2D-2-1 THEN X 
11=2 

267 SOUND 1,100, 10, 10!GOTD 266 

268 MBCXMJ=1 :GOTO 110 

290 REM ********* 

291 REM DEP. HAUT 
232 REM ********* 

300 IF CT=2 AND X>11 AND X<151 OR CT---3 A 
ND X)l AND X<5) THEN 600 

301 IF CP-131 DR CCCP-196 OR CP-1 3 AND C 
T=131) THEN 303 

30» GOTO ! 10 

3*3 IF CP=1 THEN CP=196 

304 "J«A+XtY*20~20:Tl-PEEKCU]:IF Tl-142 0 
R Tl=140 OR T1=13B THEN 1700 

305 PDKE U,77=P0KE U+20,78:IF CP0196 TH 
EN POKE U*40, 131 

A SUIVRE... 



COM3 A T AERO NA VAL 



Au gré de votre humeur 
Marin ou aviateur 
De théâtre au combat 
La mer vous servira. 

Michel LADEGAILLERIE 



Mode d'emploi: 

Vous disposez de 4 options indiquées dans le programme. Vous lar- 
guez vos bombes en appuyant sur la barre d'espace et (irez vos 
missiles avec les touches fléchées î +- . 

Le score dépend de l'attitude de l'avion et de la précision du tir. Une 
bombe à la mer vous fait perdre 50 points. Lorsqu'un avion est 
abattu dans la partie supérieure gauche de l'écran, le pilote s'éjecte- 
et descend en parachute , ce qui vous rapporte 200 points. 




■ PAR M. LAÛEGAI L 



i:put sprite d, pbo A»-ir* 



' THEN ; 
810 REM -- IN1TIALIS 



> THEN Y 

vex-o 

1100 IF VCK)0 AND VCX<4 THEN 1170 
1110 IF X1K<233 THEN 1130 
11Z0 Y1X"12+10*INT[RND(1)*7I 
1130 IF X!>518 THEN 970 ELSE 1000 



> REM 



INIMATÏO* 



: missile 



100 COLOR 4,5,3!SCREEN 2,0!KEY OFF 

110 Yl%=HNOI-tTIME/10> MOD 1001 

120 OPEN "GRP!"FOR OUTPUT AS XI 

130 REM 

140 REM " DEFINITION DES LUTINS - 

160 "OR LK=0 TO 19 

170 FOR CX-1 TO 6: READ LEVLUB-LUi 



«255 THEN 520 



> SOUND 6,0!BM%-I 



410 IF YMX» 

420 PUT SPRITE 4, 140, 191) !PUT SPR 
TE 5, (30,191) : VCH-0 
430 IF X!>51B THEN 970 ELSE 980 

430 REM EXPLOSION BATEAU 

1460 REM 

1470 SOUND O.OiSOUND Û,43:S0UND 7, 
7!SOUND 12,140iS0UND B.lâiSOUND 13 

1400 PUT SPRITE E, fX2**B,Y2%) ,9, U 
:PUT SPRITE 1, (X2*,Y2%I ,7,10: POT S 
PRITE 3, (X2X»4,Y2%*3I ,11, B 
1490 SCS-5CX+Y2H-Y1S* 1B-ABS 
XBX) 1*20 

13O0 LINE 1230, 191)- (ZOO, 1S4),3,GF 
1310 PRINT Hl.SCS 



CHOIX DU JEU 



380 COLOR 1 



860 BC="B0MBE5 a *SPAC 

870 GOSUB 2340 

BBO IF CHS<3 THEN CS°BS ELSE »>A* 

890 COLOR liDRAWBM16,176'lPRINTtH 



SCORE" 1200 > 



1520 T 



260 



1E-0 



1 520:X1K-2#X! MOD 



YtM 



«00 LOCATE l.SIPRIN- 

lachep 20 bombes" 
ùio 1.ocate 2,7:prin- 



t combat aer 



i - bateau IMMO 



■LE BATEAU TI 



.1 :SOUN0 0,BRX*1 



330 DATA 124,; 



, 126,0,0,0,0,0 



, 129, 130,0,0 



SPRITE i, (XZX,Y2x! 
1260 ON <JC% GOTO 127! 
1270 SOUND O.BRX-3: ' 
R D*=l TO 20:NEXT D* 
) SOUND 0,BRK>-4:XBt 



'RITf 



BMK°20 THEN 2110 
-X?»1.5 MOD 5ZO 
K-2*X! MOD 260 SP 



I \20 :s 

II 1PUT 



i THEN 1 



370 DATA 32,112,0,32,0,0,0,0 
3S0 DATA 126, 254, 30, 6B, 147, 17, 
390 REM 



i i :drau-bm40,i 



(TE 0, 10,191! 



1020 IF CKK-2 OR C 

ÎN é?0 103O PUT SPRITE I , IX2X. 150) ! PL 

RITE 2, 1X2X48, ISOl leoro 1060 
1O40 X2%=Z5Z-X! \2: Y2»=160-X! \2 

t JEU *--■ 1050 PUT SPRITE Z, (X2Kt8,YZ«l : 

! BOMBARDE SPRITE 1,(X2K,Y2%) 

i- 1060 ON CHV GOTO 1070,1070,109 



: MM*»1 THEN V 



) IF YBX<Y2%-4 THEN 
) SOUND S.OISOUND O, 
) IF XB*>X2X-B AND XBX' 
1470 ELSE 1630 

i Sound o,br*»3:ym l 



1330 sound o,brk*3:ymx=ymk-6:xmX' 



MX-3SPUT SPRITE ' 



1390 IF VCH-3 T 



1330 IF TIME>60 AND TIME<75 THEN S 
OUND 12,0iS0UND 12, 140. SOUND 13, Oï 
PUT SPRITE 3, (X2S*1B,Y2X-61 ,9,12:P 
UT SPRITE 1, IXZH-9, YZ%) , 9,61PUT SP 
RITE 2, [X2X*B,Y2X),9,7 
1560 FOR DK-1 TO 20!NEXT DU 
1370 IF TIME<300 THEN 1530 
1S80 PUT SPRITE 3, 130,1911 , 1,3:PUT 

SPRITE 2, 1256,Y2X> ,1,2!PUT SPRITE 

1, 1256,YZX1,1, i:vcv=o 
1390 1F X1KC23S THEN 1330 ELSE 970 
1600 REM 

1610 REM ECLABOUSSURES 

1630 SOUND 0,0! SOUND 6,1S;S0UND 7, 
7!SOUND 12,140iS0UND B,16:S0UND 13 



1Ô7Q SCX-SC^-50 

1600 LINE (250, 1911 - 1200, li4) ,3, BF 
1690 PRINT Kl.SCX 

1710 X'-X'*l MOD 52O:F0R D\-l TO 2 
o:next dx 

1720 xm»2*x! mod 2ûo:put sprite o 

1740 X2X-Z52-X ! \2: Y2X=160-X ! \20 

Suite page 8 



